5,389
社区成员
发帖
与我相关
我的任务
分享
表中有DangYuan列字段,bit类型,我想在运行True显示 √ ,是False = 空,或者X
可以,你只需要在DBGrid激活之前设置一个对应字段的OnGetText事件处理:
type
TForm1 = class
private
procedure Field_dangyuan_GetText(Sender: TField; var Text: String; DisplayText: Boolean) ; // 添加这个声明
end;
实现部分添加:
procedure TForm.Field_dangyuan_GetText(Sender: TField; var Text: String; DisplayText: Boolean) ;
begin
if DisplayText then Text := '√';
end;
然后你的查询代码
//...
ADOQuery1.Open;
ADOQuery.FieldByName('dangyuan').OnGetText := Form1.Field_dangyuan_GetText; // 添加这行
根据该列生成一个字符列